home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 May
/
64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64
/
f+m speed test
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
817b
|
41 lines
100 rem speed test demo
105 rem
110 print"[147]"(NULL)(12,5)"f+m manager"
120 print(NULL)(11,6)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
130 print(NULL)(13,8)"speed test"
140 print"bitte legen sie eine leere diskette ein";
150 (NULL) a$
160 print"[145] "
170 (NULL)"s:test-datei,test-datei+"
180 print(NULL)(6,10)"anzahl der datensaetze : ";
190 (NULL) 4,a
200 (NULL)"i"
210 gosub460
220 print(NULL)(12,13)"> creating..."
230 (NULL)"test-datei",5,12,10,14,16,18,a
240 gosub460
250 :
260 print(NULL)(12,13)"> writing... "
270 print(NULL)(12,20)"datensatz#"
280 (NULL)"test-datei"
290 gosub460
300 fori=1toa
310 (NULL)i,1,"record#"+str$(i)
320 print(NULL)(22,20)i
330 next
340 print(NULL)(12,13)" taste [146]! [157][157][157]";
350 (NULL) a$
360 :
370 print(NULL)(12,13)"> reading... "
380 print(NULL)(6,20)"feld-inhalt: ' '"
390 fori=1toa
400 (NULL)i,1,a$
410 print(NULL)(20,20)a$
420 next
430 (NULL)
440 gosub460
450 end
460 print(NULL)(0,15)" "
470 print(NULL)(19-len(ds$)/2,15)ds$
480 return